home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BMUG Revelations
/
BMUG Revelations.toast
/
Programming
/
Programming Languages
/
Yerk 3.64
/
Asm source
/
operand
< prev
next >
Wrap
Text File
|
1986-03-20
|
1KB
|
77 lines
\ Class Operand Reese Warner 4/85
\ 03/07/86 GDC fixed PC modes (9 & 10)
:CLASS operand <SUPER object
var value
int reg \ register
int mode \ operand mode
int auxType \ index type (A/D)
int auxReg \ index register
int auxSize \ index size (word or long)
int pcmode \ for use with PC modes
:M A/D:
get: auxType
;M
:M SETA/D:
put: auxType
;M
:M AUXILSIZE:
get: auxSize
;M
:M SETAUXSIZE:
put: auxSize
;M
:M SETAUXREG:
put: auxReg
;M
:M AUXREG:
get: auxReg
;M
:M SETREG:
put: reg
;M
:M SETVAL:
put: value
;M
:M SETMODE:
put: mode
;M
:M MODE:
get: mode
;M
:M VALUE:
get: value
;M
:M REG:
get: reg
;M
:M EA:
mode: self 7 min 0 max 3 << reg: self or
;M
:M GETPCMODE:
get: pcmode
;M
:M SETPCMODE:
put: pcmode
;M
;CLASS
operand op1
operand op2